home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / windownt / perlnt.zip / t / io / argv.nt next >
Text File  |  1993-07-25  |  1KB  |  49 lines
  1. #!./perl
  2.  
  3. # $Header: argv.t,v 4.0 91/03/20 01:50:46 lwall Locked $
  4.  
  5. print "1..5\n";
  6.  
  7. open(try, '>Ioargv.tmp') || (die "Can't open temp file.");
  8. print try "a line\n";
  9. close try;
  10.  
  11. #
  12. # N.B. Don't change the spacing of the commands in backticks with out
  13. #      making a corresponding adjustment in the string to be compared!
  14. #      This is because cmd.exe echos EVERYTHING up to the pipe character.
  15. #
  16.  
  17. $x = `perl -e "while (<>) {print \$.,\$_;}" Ioargv.tmp Ioargv.tmp`;
  18.  
  19. if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
  20.  
  21. $x = `echo foo| perl -e "while (<>) {print $_;}" Ioargv.tmp -`;
  22.  
  23. if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  24.  
  25. $x = `echo foo| perl -e "while (<>) {print $_;}"`;
  26.  
  27. if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
  28.  
  29. #@ARGV = ('Ioargv.tmp', 'Ioargv.tmp', '/dev/null', 'Ioargv.tmp');
  30. @ARGV = ('Ioargv.tmp', 'Ioargv.tmp', 'nul:', 'Ioargv.tmp');
  31. while (<>) {
  32.     $y .= $. . $_;
  33.     if (eof()) {
  34.     if ($. == 3) {print "ok 4\n";} else {print "not ok 4\n";}
  35.     }
  36. }
  37.  
  38. if ($y eq "1a line\n2a line\n3a line\n")
  39.     {print "ok 5\n";}
  40. else
  41.     {print "not ok 5\n";}
  42.  
  43. `del/q/f Ioargv.tmp`;
  44.  
  45.  
  46.  
  47.  
  48.  
  49.